home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / d_alst11.lha / RunArexx < prev    next >
Text File  |  1994-02-19  |  723b  |  19 lines
  1. /**************************************************************************\
  2.                 The "RunA" Command launches ARexx Pfiles
  3.  
  4.                $VER: RUNArexx, v1.1 (20-Feb-94) by Dotoran!
  5. \**************************************************************************/
  6. options results ; tr=transmit ; se=sendstring ; gu=getuser
  7.  
  8. gu 1302307 ; file=result ; if file='' then do
  9.     tr 'n1A PFile to run:i128 39}' ; gu 70 ; file=result ; end
  10.  
  11. if file='' then exit
  12.  
  13. if ~exists(file) then do ; tr 'file not found.' ; exit ; end
  14.  
  15. tr 'Loading...'||file||'#0'||file||'}'
  16.  
  17. /** END *******************************************************************\
  18. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  19.